home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Advanced F202025292001.psc / Form1DLL.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-05-28  |  1.7 KB  |  57 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   2070
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   3030
  8.    ClipControls    =   0   'False
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2070
  13.    ScaleWidth      =   3030
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.TextBox Text2 
  17.       Height          =   285
  18.       Left            =   120
  19.       TabIndex        =   1
  20.       Text            =   "Text2"
  21.       Top             =   720
  22.       Width           =   1575
  23.    End
  24.    Begin VB.CommandButton cmdShiftFocus 
  25.       Caption         =   "Dummy"
  26.       Height          =   375
  27.       Left            =   2040
  28.       TabIndex        =   2
  29.       Top             =   1560
  30.       Width           =   855
  31.    End
  32.    Begin VB.Label Label1 
  33.       Alignment       =   2  'Center
  34.       Caption         =   "We're in Form1 within Inprocess DLL"
  35.       Height          =   495
  36.       Left            =   120
  37.       TabIndex        =   0
  38.       Top             =   120
  39.       Width           =   1575
  40.    End
  41. Attribute VB_Name = "Form1"
  42. Attribute VB_GlobalNameSpace = False
  43. Attribute VB_Creatable = False
  44. Attribute VB_PredeclaredId = True
  45. Attribute VB_Exposed = False
  46. Option Explicit
  47. '!! NOTE: cmdShiftFocus must not be viewable on the screen as
  48. '         its only purpose is to identify when to pass focus
  49. '         back to the parent form
  50. Event MoveFocus()
  51. Private Sub cmdShiftFocus_GotFocus()
  52.     '## Reset tabbing order
  53.     Text2.SetFocus
  54.     '## Advise parent form that we are releasing focus back
  55.     RaiseEvent MoveFocus
  56. End Sub
  57.